﻿'Params
'country (Required) : A country name, as defined by the ISO 3166-1 country names standard
'metro (Required) : The metro's name
'start (Optional) : Beginning timestamp of the weekly range requested (c.f. geo.getWeeklyChartlist)
'end (Optional) : Ending timestamp of the weekly range requested (c.f. geo.getWeeklyChartlist)
'api_key (Required) : A Last.fm API key.
'Auth
'This service does not require authentication. 

Public Class GeoGetMetroUniqueArtistChart
	Inherits BaseRequest
    Dim metro As String = ""
    Dim country As String = ""
    Dim start As String = ""
    Dim end_ As String = ""
    Dim page As String = ""
    Dim limit As String = ""

    Public xmlresponse As XDocument = Nothing

    Public Sub New(metro As String, country As String, start As String, end_ As String, page As String, limit As String)
        Me.metro = metro
        Me.country = country
        Me.start = start
        Me.end_ = end_
        Me.page = page
        Me.limit = limit
    End Sub

    Public Sub sendRequest()
        InitializeMembers("geo.getMetroUniqueArtistChart")

        AddMember("metro", metro, False)
        AddMember("country", country, False)
        AddMember("start", metro, start)
        AddMember("end_", end_, False)
        AddMember("page", page, False)
        AddMember("page", page, False)
        AddMember("api_key", My.Settings.api_key, False)

        xmlresponse = sendPOSTResponse()
    End Sub

    '	Public Function getResponse() As AlbumGetInfoResponse
    '	Dim response As New AlbumGetInfoResponse
    '		response.album = New Album(xmlresponse.<lfm>.<album>.First)
    '		Return response
    '	End Function
End Class
